home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE15 / CPPCLASS / OWLDEL / DOWLSLDR.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1996-07-17  |  1.4 KB  |  72 lines

  1. #include <owl\window.h>
  2. #include "dowlsldr.h"
  3.  
  4. TOWLSlider::TOWLSlider():TOWLDelphiControl()
  5. {
  6.      FOnChange.Code    = NULL;
  7. };
  8.  
  9. int  TOWLSlider::GetPos()
  10. {
  11.  if (InternalControl != NULL)
  12.   return TYPESAFE_DOWNCAST(InternalControl,
  13.                           THSlider)->GetPosition();
  14.  else
  15.   return 0;
  16. };
  17.  
  18. void   TOWLSlider::SetPos(int pos)
  19. {
  20.  if (InternalControl != NULL)
  21.     TYPESAFE_DOWNCAST(InternalControl,
  22.                              THSlider)->SetPosition(pos);
  23. };
  24.  
  25. int  TOWLSlider::GetMinRange()
  26. {
  27.  int Min = 0,Max = 0;
  28.  
  29.  if (InternalControl != NULL)
  30.   TYPESAFE_DOWNCAST(InternalControl,THSlider)->
  31.          GetRange(Min,Max);
  32.   return Min;
  33. };
  34. int  TOWLSlider::GetMaxRange()
  35. {
  36.     int Min = 0,Max = 0;
  37.     if (InternalControl != NULL)
  38.          TYPESAFE_DOWNCAST(InternalControl,THSlider)->
  39.              GetRange(Min,Max);
  40.   return Max;
  41. };
  42. void  TOWLSlider::SetMinRange(int min)
  43. {
  44.  if (InternalControl != NULL)
  45.   TYPESAFE_DOWNCAST(InternalControl,THSlider)->
  46.     SetRange(min,GetMaxRange());
  47. };
  48. void  TOWLSlider::SetMaxRange(int max)
  49. {
  50.  if (InternalControl != NULL)
  51.   TYPESAFE_DOWNCAST(InternalControl,
  52.      THSlider)->SetRange(GetMinRange(),max);
  53. };
  54.  
  55. void  TOWLSlider::SetTicGap(int ticGap)
  56. {
  57.   if (InternalControl != NULL)
  58.     TYPESAFE_DOWNCAST(InternalControl,
  59.       THSlider)->SetRuler(ticGap);
  60.  
  61. };
  62.  
  63. void TOWLSlider::DoChange()
  64. {
  65.      DoNotifyEvent(FOnChange);
  66. };
  67.  
  68. void  TOWLSlider::SetOnChange(TEvent func)
  69. {
  70.      FOnChange = func;
  71. };
  72.